home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M300.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  4KB  |  193 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     Goto LABEL001
  31.     End
  32.     If (0 == 0) STRING001 = "NO"
  33.     If (0 == 1) STRING001 = "YES"
  34.  
  35.     EndFunc
  36.  
  37.     :LABEL001
  38.     STRING002 = String(PcbNode())
  39.     If (PcbNode() == 0) STRING002 = "A"
  40.     STRING004 = GetEnv(STRING002 + "RECNO")
  41.     STRING004 = ToInteger(STRING004)
  42.     STRING003 = "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  43.     DOpen 0, PPEPath() + "USER.DBF", 0
  44.     DGo 0, STRING004
  45.     :LABEL002
  46.     Cls
  47.     Newlines 2
  48.     PrintLn " @X0B        You sit down amongst a group of old soldiers, many of them @X07"
  49.     PrintLn " @X0Bmissing pieces that you think are rather important.  Several of them @X07"
  50.     PrintLn " @X0Bare staring into space, one of the signs you were warned about @X07"
  51.     PrintLn " @X0Bregarding the virus native to this planet.@X07"
  52.     PrintLn 
  53.     PrintLn " @X0B        While you're staring at one of the virus victims, he starts @X07"
  54.     PrintLn " @X0Bsuddenly and looks you square in the eye.  A wild cleverness seems to @X07"
  55.     PrintLn " @X0Binvade his countenance, and he pipes up:@X07"
  56.     PrintLn 
  57.     PrintLn " @X0B        I know a number under a hundred, and I'll bet you any amount @X07"
  58.     PrintLn " @X0Bthat you can't guess it.  I'll even give you SIX guesses at it.@X07"
  59.     Newlines 2
  60.     :LABEL003
  61.     PrintLn "@X0A ", Trim(DGet(0, "CASH"), " "), " @X0Bcredits on hand.@X0F"
  62.     InputStr "@X0B So tell me, how many credits do you want to bet @X0E> _", INTEGER001, 15, 10, Mask_Num(), 0
  63.     If (INTEGER001 == "") Goto LABEL002
  64.     If (ToInteger(INTEGER001) == 0) Then
  65.         Newlines 2
  66.         PrintLn "@X0CScared to bet with an old cripple, eh?@X0F"
  67.         PrintLn 
  68.         Call PPEPath() + "VRS-M19.PPE"
  69.     Else
  70.         If (INTEGER001 > DGet(0, "CASH")) Then
  71.             Backup 80
  72.             ClrEol
  73.             PrintLn "@X0CDon't screw with me, you don't have that many credits!@X0F"
  74.             Delay (3 * 182) / 10
  75.             Goto LABEL003
  76.         Endif
  77.         Cls
  78.         Newlines 2
  79.         DPut 0, "CASH", DGet(0, "CASH") - INTEGER001
  80.         PrintLn "@X0BOk Hero, I have my number all set, and to make it fair, I will tell it to the@X0F"
  81.         PrintLn "@X0BColonel sitting right next to you.  He leans over and whispers something @X0F"
  82.         PrintLn "@X0Bunintelligble to the one-armed man next to you.@X0F"
  83.         Newlines 3
  84.         Call PPEPath() + "VRS-M19.PPE"
  85.         Cls
  86.         INTEGER003 = Random(100)
  87.         Newline
  88.         For INTEGER004 = 1 To 6
  89.             Print "GUESS #", INTEGER004
  90.             InputStr "@X04) @X0AWell what will it be @X8E>@X0F _", INTEGER002, 14, 3, Mask_Num(), 0
  91.             If (INTEGER002 < INTEGER003) Then
  92.                 Newline
  93.                 PrintLn "@X0BToo Low!@X0F"
  94.                 Continue
  95.             Endif
  96.             If (INTEGER002 > INTEGER003) Then
  97.                 Newline
  98.                 PrintLn "@X0CToo High!@X0F"
  99.                 Continue
  100.             Endif
  101.             Newline
  102.             PrintLn "@X89You Got It!  I can't believe it!@X0F"
  103.             Newline
  104.             PrintLn "@X0AHere is your $", INTEGER001 * 2, ", don't spend it all in one place!@X0F"
  105.             DPut 0, "CASH", DGet(0, "CASH") + INTEGER001 * 2
  106.             Newlines 2
  107.             Call PPEPath() + "VRS-M19.PPE"
  108.             Goto LABEL004
  109.         Next
  110.         If (INTEGER004 >= 6) Then
  111.             Newline
  112.             PrintLn "@X8CLoser!@X0E I hardly ever lose this game!  Thanks for the @X0A", INTEGER001, "@X0E credits!@X0F"
  113.             Newlines 3
  114.             Call PPEPath() + "VRS-M19.PPE"
  115.         Endif
  116.     Endif
  117.     :LABEL004
  118.     DCloseAll
  119.     End
  120.  
  121. ;------------------------------------------------------------------------------
  122. ;
  123. ; Usage report (before postprocessing)
  124. ;
  125. ; ■ Statements used :
  126. ;
  127. ;    2       End
  128. ;    3       Cls
  129. ;    1       ClrEol
  130. ;    14      Goto 
  131. ;    10      Let 
  132. ;    1       Print 
  133. ;    23      PrintLn 
  134. ;    10      If 
  135. ;    2       InputStr 
  136. ;    1       Delay 
  137. ;    6       Newline
  138. ;    7       Newlines 
  139. ;    4       Call 
  140. ;    1       Backup 
  141. ;    1       EndFunc
  142. ;    1       DOpen 
  143. ;    1       DCloseAll
  144. ;    1       DGo 
  145. ;    2       DPut 
  146. ;
  147. ;
  148. ; ■ Functions used :
  149. ;
  150. ;    3       *
  151. ;    1       /
  152. ;    8       +
  153. ;    1       -
  154. ;    5       ==
  155. ;    2       <
  156. ;    1       <=
  157. ;    2       >
  158. ;    3       >=
  159. ;    6       !
  160. ;    2       &&
  161. ;    1       ||
  162. ;    1       Trim()
  163. ;    1       Random()
  164. ;    1       String()
  165. ;    2       Mask_Num()
  166. ;    5       PPEPath()
  167. ;    2       PcbNode()
  168. ;    1       GetEnv()
  169. ;    2       ToInteger()
  170. ;    4       DGet()
  171. ;
  172. ;------------------------------------------------------------------------------
  173. ;
  174. ; Analysis flags : C
  175. ;
  176. ; C - Call child PPE ■ 3
  177. ;     This is usually normal, but may be a tricky way to launch some
  178. ;     sysop-only commands.
  179. ;     ■ Search for : CALL
  180. ;
  181. ;------------------------------------------------------------------------------
  182. ;
  183. ; Postprocessing report
  184. ;
  185. ;    1       For/Next
  186. ;    0       While/EndWhile
  187. ;    5       If/Then or If/Then/Else
  188. ;    0       Select Case
  189. ;
  190. ;------------------------------------------------------------------------------
  191. ;                 AEGiS Corp - Break the routines, code against the machines!
  192. ;------------------------------------------------------------------------------
  193.